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I am sorry if this issue is a little skimpy, and will 
probably be a little late as well. Don't jump to conclusions 
about a Xmas hangover. 


Fact is I had a fall off a ladder, and that has slowed me 
up a "little". I do only use 2 fingers to type, but I like one 


on each hand, and my right arm is in a sling and not of much. 


use. 


We had quite a gathering last meeting. We were able -to 
welcome Paul Frantz from North Q'ld. No doubt down here to 
look at dry ground for a change. 


Remember our meetings are the first Sunday of the month at 
12 Thomas Str. MITCHAM. But if you are in Melb. anytime drop 
in. | 


Also missing is the 3rd article on VZ SOUND. Bob is either 
having a holiday, or else gone down with the floods. What a 
state!!! 


Dave Mitchell's home is in Rockhampton. We hope he did'nt 
fare badly. We have'nt heard. ood luck Dave. 


I draw attention to the series by David Wood on Mystry 
program writing. This is an excellent series, and well worth 
following. if not for Mystry writing then for the use of 
Basic. f 


The name changing routine for disk users is covered in BME 


in VZDU %15 starting at line 7570. That is one method. There 
are others. When the series is finished I will cover faster 


saving of Data to tape. 


4144731 


DEATH MAZE 


10 REM THIS PROGRAM WAS WRITTEN 

20 КЕМ IN 1988 BY BEN HOBSON 

30 REM AND TAKES UP 4.952 К 

40 REM 

45 JX$=" JOYSTICK" :KB$="KEYBOARD" 

50 4/23: ЈҮ=0:0=1:5=0: Н5=0: БОБОВІ 180: 50701280: ° СНЫСК Б050В 1180 :: 
60 МОРЕ (1) : 60Т0590 

70 IFW=1THENX1=0: Yi=1: X=5: Y=5 

Во LIFW=2THENX1=0: Y1=12 X=56: Y=29 

90 IFW=STHENX 1=0: Y1=1: X=58s Y=25 

100 COLOR2: FORA=116T0126: SET (A, 62) : NEXT: COLORS 

105 COLOR2: FORB=1T020: RESET (X, Y) : FORG=1T020: NEXT: SET (X, Y) 
106 FORG=1T020: NEXT: NEXT 

110 SOUND14, 1318, 13; 20,1323, 3320, 13235,5 

120 A=RND (63) : B=RND (127) : COLOR4: SET (B, A) sCOLOR2: S=5+10 
125 FOR FG=0 TO DY: NEXT FG 

150 H$=INKEY$: IF JY=1THENGOTO?40 

140 IFH$="A"THENY1=13 X1=0: GOTO180 

150 IFH$="Q" THENY1=—1: X1=0: GOTO180 

140 IFH$="M" THENX1=—12 Y1=0: GOTO180 

170 IFH$=", “THENX1=1: Y1=0: COLOR2 | ы 

180 SET (X,Y) :X=X+X12 Y=V+V i: IFPOINT (X, Y) =1 THENSET (X, Y) :60T0120 
190 IFY=62ANDX=114THEN320 \ 
200 IFY=62ANDX=117THEN320 

210 IFY=62ANDX=118THEN320 

220 IFY=62ANDX=119THEN320 

230 IFY=62ANDX=120THEN320 ' 

240 IFY=62ANDX=121 THEN320 

250 IFY=62ANDX=122THENS20 

260 IFY=62ANDX=123THEN3S20 

270 IFY=62ANDX=124THENS20 д 
280 IFY=62ANDX=125THEN320 

290 IFY=62ANDX=126THENS20 

300 IFPOINT (X, Y) =2THENGOTOSSO 

510 GOTO850:G60T0120 | 

3%2O SDUND31,1:CLS:FORJ=1TD1O:PRINT" tiè CONGRATULATIONS $44" 
330 CLS:PRINT” 4%% CONGRATULATIONS #t#":CLS:NEXT 
$40 PRINT: PRINT: PRINT:PRINT 

350 PRINT"YOU MADE IT THROUGH SCREEN ";W 

360 IFW=3THENGOTO1890 

570 PRINT"NOW TRY SCREEN ";W+1:W=W+1 

380 FORK=1TO2000: NEXT 

390 IFW=1THENGOTO4630 

400 IFW=2THENGOTO420 

410 IFW=3THENGOTO1430 

420 MODE (1): COLORS: W=2 

430 FORA=0T0127:SET (A, O) sSET (A, 63) = NEXT 

440 FORB=0T063: SET (0, B) : SET (127, B) s NEXT 

450 FORC=0T047: SET (30, C) 3 SET (100,C) NEXT 

460 FORD=31T063: SET (90, D) : SET (115, D) NEXT 

470 FORE=0T042: SET (80, E) : NEXT 

480 FORF=47T080: SET (F, 43) : NEXT 

490 FORG=11T019: SET (6,8) :NEXT 

S00 FORH=8T051: SET (19,H) :NEXT 

510 FORI=19T047:SET (1,51) NEXT 

520 FORJ=131051:SET (47,79) sNEXT 
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550 
540 
550 
560 
570 
580 
990 
600 
610 
620 
550 
640 
650 
6640 
670 
680 
690 
700 
710 
720 
750 
740 
750 
760 
770 
780 
790 
800 
810 
B20 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 


se 


—— a e $ 


FORK=47T068: SET (K, 13) :NEXT 
FORL=13T035:5ET (68, L) : NEXT 
FORM=68TOS3STEP-1: SET (M, 35) : NEXT 
FORN=35TO2Z3STEP—-1: SET (535, № : МЕХТ 
FORO=53T059: SET (0, 23) sNEXT 
FORP=237T032: SET (59,P) NEXT 
ҒОКО-ВТ019:5ЕТ(10,0):МЕХТ 
FORR=10T013:SET (R, 19) : NEXT 
FORT=19T051:SET (13,7) =NEXT 
GOTO70O 





“a... A A 


pamragat na ae P a AA L ылды 


MODE (1) : W=1 : COLORZ: FORA=0T0127: SET (А, 0) : ЗЕТ (A, 63) : NEXT: B=0 


A=0: B=0: C=0: D=0: E=0: F=0: G70: H70: I=0 
FORA=0T063: SET (0, А) : ЅЕТ (127, А) : NEXT 
FORA=14TO1STEP-1:B=B+1: SET (A, B) :NEXT 
FOR =%OTOISTEP—12C=C+1:SET(A,C) = NEXT 
FORA=45TOISTEP—1:D=D+1: SET (A, D) NEXT 
FORA=60TOISTEP—1:E=E+1i:SET(A,E) :NEXT 


FORA=75TOL4STEP—-1:F=F+1: SET (A,F) NEXT 
FORA=90TO2Z9STEP—12:G6=G+1: SET (A,G) sNEXT 
FORA=1 1OTO49STEP—1: H=H+1: SET (A, H) = NEXT 
FORA=125TOG3STEP—-12 I=1+12SET(A, 1) s NEXT 


FOR A=40T063: SET (115, A) NEXT 
FOR A=40T050: SET (87, A) :NEXT 


A=11:B=4:FORJ=1T05: RESET (A, B) :A=A—-1:B=Bti: NEXT 
A=17: B=14: FORJ=1TO5: RESET (A, B) :A=A—-1: B=B+1: NEXT 
A=40: B=6: FORJ=1T05: RESET (A, B) :A=A-1: B=B+1: NEXT 
A=70: B=6: FORJ=1T05: RESET (A, B) :A=A-1: B=B+1: NEXT 
A=105: B=6: FORJ=1T05: RESET (A, B) : A=A-1: B=B+1: NEXT 
A=20: B=41:FORJ=1TO5: RESET (A, B) sA=A—-1: B=B+1: NEXT 
A=50: B=41:FORJ=17T05: RESET (A, B) sA=A-1: B=B+13 NEXT 
A=83: B=43: FORJ=1TOS: RESET (A, B) s A=A-1: B=B+1s NEXT 
60T070 
IFV>1THENSOUND4 ,2;8,23;9,2;11,7:8=5-1000 


POKE30744,0:CLS:PRINT:CLS:V=V-1 
FORJ=1TO6:PRINT:NEXT 


IFV=2THENPRINT"#2 LIVES LEFT — PREPARE TO DIE£" 
IFV=1THENPRINT"&THIS IS YOUR LAST RIDE SUCKERS" 
IFV=OTHENPRINT" *x TOO BAD YOU DIED í#$£ 


IFV=OTHENGOSUB1240 
IFV=OTHENFORG=1T02000: GOTO1280 
FORK=1T02000: NEXT: GOTO40 
K= (INP (46AND43) AND31) 
IFK=29THENY1=1: X1=0:GOTO180 
IFK=3O0THENY 1=—12X1=0:GOTO180 
IF K=27 THENX1=—1: Y1=0:G0TO180 
IFK=23THENX 1=1: Yi=0:GOTO180 
COLOR2: SET (X,Y) 

X=X+X1:Y=Y+Y1 


1O1O IFPDINT(X,Y)=STHEN850 


1020 
1050 
1040 
1050 
1060 
1070 
1080 
1090 
1100 


IFPOINT (X, Y) =1 THEN120 
IFPOINT (X, Y) =4THENSSO 
CLS: POKES0744, 1. 


CLS:PRINT” INSTRUCTIONS 


PRINT: PRINT" IN DEATH RACE YOU HAVE TO "sPRINT"NEGOTIATE”"; 
PRINT” YOUR WAY AROUND THE MAZE WITHOUT HITTING"; 
PRINT" YOUR OWN LINE , THE BOUNDARIES , OR ANY DOTS"; 


PRINT" OR YOU WILL DIE. THERE ARE THREE SCREENS. 
PRINT: PRINT"FUNCTION KEYS JOYSTICK" 
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1110 
1120 
1150 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1205 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1285 
1290 
1295 
1500 
1305 
1310 
1315 
1320 
1325 
1330 
1335 
1340 
1345 
1350 
1355 
1360 
1361 
1565 
1370 
1375 
1380 
1385 
1370 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 


PRINT “UP <O> UP 
PRINT"DOWN <A> DOWN 
РКІМТ"І ЕҒТ <M> LEFT 


RIGHT 


PRINT"RIGHT <,> 
PRESS <C> TO CONTINUE” 


PRINT: PRINT" 
Х%-ІМКЕҮ%:Х%-ІМКЕҮ%:ІРХФ<>"С"ТНЕМ1180 
60701280 

CLS: FORG=1T05: PRINT: NEXT 

PRINT" DEATH-RACE "ç 
FORG=1T04:PRINT:NEXT 

PRINT” VERSION II” 

PRINT" WRITTEN IN 1990 BY "; 
PRINT" BEN HOBSON me 
БОТО1 240: КЕТОКМ 


IFS>HSTHENHS=S 
FORA=1T03: SOUND4, 4: FORD=1TO12: 


FORD=17T012:NEXTD, Az SOUNDS, 3; 
V=3:W=1 

CLS:PRINT” $ Ж 4% D СЕАТН КАСЕ% x <" 

PRINT@71,"< > SELECT” 

PRINT@112, "SELECTED" 

РЕІМТӘ162,"<0> TO <9> DIFFICULTY LEVEL” 

РКІМТЕ256," (0) HARD” 

PRINT@268,"(9) EASY" 

PRINT@328, "<I> INSTRUCTIONS 

PRINT@392, "LAST SCORE ООООО" 

PRINT@424, “HIGH SCORE 00000" 

PRINT@491, "PRESS KEY"; 

IFJY=1PRINTe103,JX$: PRINTe72, "K"zPRINTe82,KB$: SDUND1 O, 1 
TE IY-OPRINTE103 KB$:PRINTE72, "J":PRINT@82, JX$:SOUNDZO, 1 
ASZINKEY$:A$=INKEY$: IFA$=""THEN1345 
IFA$="J"THENJY=1:60T01335 
IFA$="K"THENJY=0:60T01335 
ІБАФ-"І"ТНЕМРОКЕ50744,0:0650701059 re 
Q@=ASC (A$) 48 4, 
IF Q>=OANDQ<=9THENDY= (9%20) : S=O: GOTO6O 
БОТО1345 

t 

š 
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4, 6: RETURN 


ғ 


% 

MODE (1) :W=3: COLORS 
FORG=0T0127: SET (Q, 0) :SET(@, 63) sNEXT 
FORG=0T063: SET (0,@) : ЗЕТ (127,0) ғ МЕХТ 
FORQ=1T020: SET (G, 18) NEXT 
FORQ=1T018: SET (20,0) :NEXT 
ЕОБКО-17025:5ЕТ (0,25) :МЕХТ 
FORG=1T019: SET (G, 36) : NEXT 
FORQ=1T058: SET (9,58) :NEXT 
FORQG=431T062: SET (115, @) sNEXT 
FORQ=12T089: SET (G, 52) : NEXT 
FORQ=48T0104:SET (0,58) :МЕХТ 
FORQ=37T058:SET (104,0) :NEXT 
FORG=104T0122: SET (@, 37) =NEXT 
FORQ=22T037: SET (122,@) sNEXT 
FORO=94T0122: SET (QO, 22) sNEXT 
FORO=18T022: SET (94,@) =NEXT 


4. 


NEXTD, A: SOUND7, 3: FORD=1TO12 
Feet SOUNDS, 1: FORD=1T01 2: NEXT: SOUNDS, 2: FORA=1T02: SOUNDS, 2 


1570 
1600 
1610 
1620 
1650 
1540 
1450 
1660 
1470 
1680 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 


FORQ=96T0115: SET (@, 18) NEXT 
FORQ@=0T018:SET (115, @) : МЕХТ 
FORQG=12TO83: SET (0,43) sNEXT 
FORG=4T043: SET (83,0) : NEXT 
FORG=83T0102: SET (0, 4) : NEXT 
FORQG=4T015:SET (102,0) : NEXT 
FORQ=87T0102: SET (Q, 15) : NEXT 
FORG=15T025: SET (87, Q) sNEXT 
FORQ=87T0107: SET (0, 25) : NEXT 
FORQ=25T030: SET (107, 0) : NEXT 
FORG=89TG107: SET (O, 30) : NEXT 
FORG=30T052: SET (89, Q) : NEXT 
FORO=12T043: SET (33,0) : NEXT 
FORQ=12T033: SET (Q, 32) : NEXT 
Ғака-287022:5ЕТ (0, 12) : МЕХТ 
FORQ=12T021: SET (28,0) : NEXT 
FORQ=28T033: SET (OQ, 21) =NEXT 
FORQ=0T016: SET (60, G) : NEXT 
ЕОРО-ОТОВ: ЗЕТ (45,0) :МЕХТ 
ҒағО-4:57080: БЕТ (0, В) :МЕХТ 
FORQ=431074: SET (0,17) NEXT 
FORQ=17TO36: SET (43,0) : NEXT 
FORG=17T036: ЕТ (74,0) : МЕХТ 
FORQG=51T066: SET (QO, 52) : NEXT 
FORD=23T032: SET (66,0) : NEXT 
FORD=23T032: SET (51,0) : NEXT 
FORG=22T028: SET (55,0) : NEXT 
FORG=55T061: SET (0, 22) : NEXT 
FORQ=22T028: SET (62,0?) : NEXT 
GOTQ70 

PRINT" AT LEVEL";DY/20 
PRINT 


PRINT"NOW TRY ALL 3 AGAIN AT LEVEL "; 


IFDY/20=0PRINT"0" : GOTO1940 
DY=DY-20: PRINTDY/20 


FORZ=1T05000: NEXT: W=1: GOTO370 


THE SCREAM SHEET 


Б” By The Official SCREAMER 


EVERYTHING'S GOING SCREAMINGLY . 

Hee, hee, heeee. I've done it! I've finally stumped that little machine in 
the end room. There it sat, its screen blank with confusion; just as it has caused 
me to sit so often, MY mind a blank. Before I tell you what I did, let me first 
relate to you the "Saga of my Second Computer". 

Late in 1989 I decided to up-grade my qualifications. I was working as a 
driver and yearned for a more interesting occupation, but I had a problem——no 
qualifications, no special experience. 50 in 1990 I began a part-time external 
(correspondence) university course. With the aid of the VzZ-300 and Word-pro 
cartridge I worked over-time. I pruned 4,500 word essays down to the required 2,000 
words. I printed and reprinted. I saved, saved again, merged and resaved...all on 
tape. And thereby hangs this tale. 

Saving, verifying and loading from tape was agonisingly slow. Midnight came 
and went with monotonous regularity. As well as my course I still had two sons, a 
husband and a house to care for and I still Һай а five hour a day driving job. My 
eyes were wearing out faster than my tyre treads and printer ribbons. What to do? 
Here's where "Dear Harry..." came back to the rescue. | 

After receiving my letter about needing a second computer, because my sons were 
complaining that a certain mother was monopolising THEIR computer ("After all Mum, 
we have assignments to do toot" "And high scores to beat," his brother added) 'Dear 
Harry..." replied that a second-hand VZ-300 was available. Not only that, but disc 
drive, power pack and etceteras were also available. I jumped at it——my very own 
computer, complete with disc drive——but I had an end-of-year assignment to put in, 
зо it sat in the corner for a month. 

The day came to unpack, hook-up and revel in the glory of total ownership, 
BUT...what's that!! NO COLOUR and it won't work on cassette! How will I transfer 
my records to disc? What'll I do? Take too long for a letter.. blow the phone 
bill...ring, rring..."Hey Harry, it's me!" Yes, Harry to the rescue again, this 
time with the help of another vVz-er, Nifty Nev. Nev pulled it apart, gaid "Oh dear” 
and told Harry. Harry said "Oh dear" and promptly despatched a replacement computer 
to my post box. 

A WHOLE FORTNIGHT LATER. (Another phone bill blowout.) "Er...Harry, it's me. 

No, it hasn't arrived. Didn't you send it?" A trip to town to the P.O. "No, we 
haven't received it. No, there's no record of it in the book. It can't have 
arrived." "No, madam, it's no good looking in the cupboard. Yes, it's the cupboard 
with the door open.” “This box, madam? У2-300 computer box with your address on 
it, madam? Here you are...but madam, it's NOT IN THE BOOK." 

Speed home. Unpack it, hook it up, load a tape. Great...but...oh no...where's 
the colour going? Nev fiddled with the colour thingumny, said it must have gotten 
jiggled in-transit and home I went again. And that's when it happened. 

I connected up the cassette to load a tape to transfer to disc, then I 
connected up the disc drive and turned the computer on. The screen went blank. It 
lost its little tail-wagging cursor. A row of question marks appeared along the top 
of the screen. IT DIDN'T KNOW WHAT TO DO! Hee, hee, hee...sob, sob...HA-A-ARRY !!! 


KIO 7 No brickbats??? 
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Dear Editors, 


I was rather interested in | 


the Letter to. the Editor in ; _ р 
#26, Sept/Oct, 1990 edition of GEE PACE 72 


the newsletter. />2У HAT 


l < . z е . . z 4 
It looked like a bit of fun {700 INES 420 On 
and something unusual, so I (Ea) 
| 


ша very disappointed to 
progress no further than "OUT 


OF DATA ERROR IN 180" which was 
the very first line. | 


Please repeat this exercise wo 
that I might be able to join 
in the fun and read the 
letter. 


regards; 


"Mystified. " 7 


Athol Wedgewood writes:— 


Accolades for the VZDU Database - it abounds with uses. I 
used it to list. group) and value household items following a 
serious fire. Reserving different first characters for each item 
category. followed by alph. sorting simplified the task. The 
insurance assesor was very impressed with the printout, 
especially the running total of the amounts, and this enabled a 


fast settlement of the claim involving nearly 1000 items. 
Athol. 


F.S. Thanks for a great newsletter. l 
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GAMES COLUMN 


Paul has not written this column, as he has been d | 
. ‘ , own here in 
Victoria. No doubt to have a look at a state that is not half under 
water!!! 

This issue we have an influx of new Hi 

> a ] аһ Scores. One I don't 

ee but am printing it. Maybe Matthew can enlighten me or 

We have the second part of How to write Mystr 

f f y Programs, from 
David Wood. Also, standing by for a later issue another program from 


Peter Ross. 


There is a good Maize program in this issue. It 1з п 
iere | | I ot the "Run of 
the mill” up-down, left-right, but in a diagonal format, that makes it 


really hard. 


DAWN PATROL 
CRASH 

DIG OUT 
HAMBURGER SAM 
LADDER CHALLENGE 
KAMIKAZE 

TEN PIN BOWLS 
VZ INVADERS 
GALAXON 
PENGUIN 
LUNAR LANDER 
SUPER SNAKE 
MAZE OF ARGON 
ASTEROIDS 
CIRCUS 

PANIK 

НОРРҮ 

GHOST HUNTER 
8TAR BLASTER 


The HIGH Scores 


52500 
410 
24400 
39500 
22550 
11160 
185 
28080 
15ОООО 
1350 
3600 
811 
75258 
11000 
1210 
7700 
255550 
25400 


480 units left 


David Wood 
Harry Huggins 
Paul Frantz 


Stephen 


Peter 


Peter 


Frantz 
Watso 
Watson 


David Wood 


Peter 


Watson 


Nicole Huggins 


Jason 
Jason 
Tim 
Peter 
Peter 
Peter 
Peter 
Matthew 
Chris 
Matthew 


Oakley 
Oak ley 
Oliver 
Watson 
McLean 
Watson 
Watson 
McLean 
McLean 
McLean 


Matt. I don’t understand the 480 units left. 


Peter. I 


think ме 


with 80-90 WPM or more. 


ë 


leave the typing out. A typist would come up 


ы НЕТЫ а н ава ааа Е а оса аб даана а ао ашо аа: одатан асі ва асова 


INSTALLING A LOAD/SAVE FEATURE FOR ADVENTURE PROGRAMS 


In many adventurea the players find that aa they are nearing 
completion of the set task, they need to go away and do something 
elae, like eat, or aleep. When they do ao they either leave the 
computer running and return to find the power aupply making an 
alarmingly loud buzzing noise and warm enough to burn fingera when 
touched (with the computer itaelf not much cooler), or they awitch off 
and their progresa аідарреага forever. The moat obvioua solution to 
this problem ia to enable them to save the data relevant to their 
progreaa to tape or diak where it can be loaded back into the program 
at a later date. 

The command beat auited to thia on the VZ ia the PRINT# command, 
which ia unfortunate, because it doean’t work! (except on the old 
у2200 datasette, and even in thia case extremely alowly.) 

Fortunately for diak drive usera the DOS equivalents of the PRINT# 
and INPUT# commanda do work, ao you won’t have to mess around trying 
to find the right memory loaction to move your data to, but aa I am 
mot a disk drive owner, I am unsure of how quick or efficient these 
аге. То save the data the following ia used: 


7000 CLS: PRINT“ INSERT DISK IN DRIVE":GOSUB 97@ 

7010 OPEN “ADVDATA",1 

7020 РК# “ADVDATA",R,S,W N° 
703@ FOR I=1 TO 35: PR# "ADVDATA",F(I): NEXT | 
7040 FOR I=1 TO 17: PR#¥ “ADVDATA",C(1): NEXT 

7050 CLOSE "ADVDATA" 

7060 RETURN 


Note that the aubroutine at 970 place the mesaage "PRESS ANY KEY TO 
CONTINUE....." at the bottom of the screen and waits until the user 
haa preased a key before RETURNing. I£ you have two diak*drivea you 
will have to use a message like "INSERT DATA DISK IN DRIVE 2" and 
aelect the appropriate drive uaing the DRIVE command. 

To load the data again the following linea would be uaed: 


7180 CLS: PRINT" INSERT DATA DISK IN DRIVE": GOSUB 970 
7110 OPEN “ADVDATA",® 

7120 IN# “ADVDATA",R,S,W 

7130 FOR I=1 TO 35: IN# “ADVDATA",FCI): NEXT 

7140 FOR I=1 TO 17: IN# “ADVDATA",C(I): NEXT 

7150 CLOSE "ADVDATA" 

7162 RETURN 


One problem with saving the data to disk with any method ia that any 
particular filename can only appear once on any disk. So once you have 
saved a file to diak using the filename ADVDATA you cannot save any 
Other file with the saame name. The only poasible solutiona I can think 
of to thia ia to ERASE any old files of the same name before saving, 
or alternatively, more experienced programmera could ask the player to 
give hia or her file a name, find exactly where the filename appeara 
in the program code in RAM, and POKE the new filename into these 
locations. (Note that the command SAVE AS will NOT work.) 


10 PRINT “THIS IS A SAMPLE MESSAGE......" 

20 CLEAR 30 

3@ PRINT "INPUT A NEW MESSAGE ": INPUT"(30 CHARS. MAX.)":AS 
32 (IF AS = “" THEN STOP 


35 ‘MAKE LENGTH OF USER MESSAGE FQUAL TO 3@ CHARS 
40 ІРГЕМ(АЯЗ) <3Ә ТНЕМ Аз= АЗ+" GOTO 42a 

S@ FOR I=1 ТО 30 

55 “GET ASCII VALUE OF NEXT CHARACTER IN MESSAGE 

6@ A = ASC( MIDS(AS,I,1)) 

65 “AND POKE IT INTO MEMORY LOCATION 

67 “(31471 IS THE LOCATION OF THE FIRST ’T’ IN *THIS:/) 

72 POKE 31479«І,А 

75 “60 BACK FOR NEXT CHARACTER IN THE MESSAGE 

8@ NEXT 

65 “CLEAR THE SCREEN AND GO BACK TO PRINT THE NEW MESSAGE 
9 CLS: GOTO ið 


Thia program demonatratea how it ia poasible Жоғ а program to alter 
itaelf. If you intend to type it in, make sure you type line 19 
exactly as it appears. You can leave out the REM (’) statements if you 
міаһ. When you run the program, if you wish to atop typing in 
messages, juat presa RETURN at the prompt. LIST the program and note 
how line 10 haa altered. The same method could be applied to changing 
the filename of the adventure data, but you may have some difficulty 
finding where the SAVE and LOAD statements appear in RAM. (Cassette 
очпега пау also consider uasing thia method ao that the filea on the 
tape can be easily diatinguished from one another.) 

The solution to the PRINT# bug for cassette owners is to move the 
data to a position in high memory, and then save this section of 
memory to tape. To reload the data, the reverse process ig used - the 
data ia loaded into high memory from tape and then returned to the 
necessary arraya and variablea., 


Before you attempt to inatall this feature you should have your 
Program otherwise completely finished and saved to tape or disk. IF 
YOU MAKE AN ERROR YOU COULD DESTROY THE CONTENTS OF YOUR PROGRAM. The 
program must be finished aa you need to be able to keep track of the 
end of BASIC at all timeas. 

The poaition in memory where you atore thia data dependa on your 
own memory aize and what you want to do with your program. If you want 
the program to Бе for your own use only, the end of your data should 
be juat over a quarter of a kilobyte (256 bytea) below your computer a 
top o£ memory. 


MEMORY LOCATIONS OF TOP OF MEMORY 

Unexpanded У2300 - 47103 (-18433) expanded V2200@ - 53247 (-12289) 
expanded V2Z30@@ - 63487 (-2049) V2200 +28K/VZ300+18K - 65535 (-1) 

(Note that each memory location above 32767 must have 65536 subtracted 
from it before it can be addressed by BASIC’sa PEEK and POKE commanda. 
For example if you wanted to POKE a value of 42 into location 53247 
you would type either POKE 53247-65536, 42 or POKE -12289,42. however 
if you wanted to PEEK at the value in memory location 28672, which ia 
below 32767, you would type PRINT PEEK(28672).) 


If, however, you require the program, for use ОП Several different 
configurations of V2 - for example, if you wished to зепа your program 
in for use on one of VZ Down Under’sa public domain tapes - you should 
choose the loweat top of memory value location possible, provided that 
there ia at least about one and a half kilobytea apare. (HINT: To 
determine the amount of free memory, run your program until the firat 
location screen appears, then preasa BREAK and type POKE 30862,212:POKE 
30863,39: PRINT USR(®Q). This calla the MEM routine, which ia one the 
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you will get 31465 which ia the Start Of Basic. If you tried thia 
again with the End Of Basic pointer (30969 and 30970) you will get 
31469 if you don’t have a progran in memory, and a higher value if you 
do. (In aome caaea the value will be above 32767 so you might need to 
gubtract 65536.) 

Therefore what you need to do to save your data block to tape ia 
place the memory location where your block starts into the Start Of 
Basic pointer, The memory location after where your block finishes (IE 
the final location PLUS one) into the End Of Basic pointer, CSAVE the 
block with the desired filename and then reatore these pointers to 
their original values. 

To find the values to put in the pointers, the location of the 
atart of your data block ahould be divided by 256. The whole number 
part of the result ig your Moat Significant Byte. Then take the value 
of the MSB, multiply it by 256 апа subtract thia value from the 
original location number. The result of this ia your Least Significant 
Byte. For example if the atart of your data block ia 52931, divide 
thia by 256 and your reault will be 206.76563. Therefore in thia case 
the MSB ia 206. For the LSB, (206%256) із subtracted from 52931 and 
the reault ia 195. Therefore the value POKEd into 30884 іа 195 and 
30885 іа 206. A similar procesa ia uaed to determine the valuea to 
be POKEd into the End Of Basic Pointer - 30969 and 30970. The location 
of the end of your data block PLUS ONE ahould be used. For example, if 
the end of your data block is 52986, you ehould use a value of 52987 
for your EOB pointer - the MSB (POKEd into 30970) ia 206 and the LSB 
(POKEd into 30969) is 251. 

After thia, the next atep ia to save the data. To do thia simply 
use the CSAVE "FILENAME" command. Then you must restore the values in 
the pointera to what they were before you changed them. Unless you 
have done aomething really tricky with your program, your SOB (Start 
Of Baaic should be 31465 - a value of 233 in 30884 апа а value of 122 
in 30885. However with the EOB thinga get a bit more complicated. 
Every time you change your program апа make it either ahorter or 
longer, and the value in the EOB changes. This is why it is important 
not to inatall this feature until your program is otherwise finished, 
aa you will need to change the value you restore to the EOB pointer 
every time you alter the program. The beat way to overcome this ia to 
add your SAVE and LOAD routinea using dummy values for 30969 and 
30970. (EG 7070 POKE 30969, 000: POKE 30970,000). THEN after you have 
finiahed, PEEK at 30969 and 30970 then replace the dummy values with 
the real onea (NOTE: if you get a value auch aa 76, you will have to 
replace it aa POKE 30969,076, because you will otherwise ahorten the 
program.) 

This іа the aample save routine in full. 


7025 CLS: PRINT" PRESS RECORD ON THE TAPE": GOSUB 970 

7027 REM 97@ - PRESS ANY KEY... 

7230 РОКЕ 30884,195: POKE 30885, 206 

7040 POKE 30969,251: POKE 30970,206 

7050 CSAVE “ADVDATA" 

7060 POKE 30884,233: POKE 30885,122 

707@ POKE 30969,108: РОКЕ 30978,182 

7@75 REM SOUND A BEEP. (DO THIS LATER) 

7080 RS="STOP THE TAPE": RS IS THE MESSAGE RETURNED TO THE PLAYER. 
7090 RETURN 


If you wish to load your data block into memory, all you have to 
do ia CLOAD it. However if you want to do thia from inaide the program 
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BASIC commanda left dormant on the VZ. thia givea the number of bytes 
of memory free.) For example, if you own an expanded VZ30@ and you 
find that the amount of free memory was 18393, you would place your 
data at a position ending a quarter of a kilobyte below 47103. 
However, if the value waa fairly close to 16384, you would need to 
place your data about a quarter of a kilobyte below 53247. The 
actual routine to move the data into high memory ia fairly simple. 


7000 F(35)=R: F(36)=S: F(37)=W 
7210 FOR I=1 TO 38:POKE 52931 - 65536 +I,FC(I): NEXT 
7020 FOR I=1 TO 17:POKE 52969 - 65536 +1I,C (I): NEXT 


The important veriablea R,S and W (which are the Player*a current 
location, atrength, and amount of weight carried) are placed into the 
F array. The contenta of the F array are POKEd into the memory 
locationa 52932-52969 (minua 65536 of courae!) by the meana of a 
Simple loop. Likewise the contenta of the C array are POKEd into 
locationa 52970-52986. (Don’t worry too much about what the F and the 
C arraya do for the moment - they will be atudied in more detail later 


оп. Basically, the С array recorda the locations of the objecta the 
player can pick up, and the F array records the actions a player has 
carried out - if a particular door haa been opened, or a hidden object 


made viaible.) Note that in thia particular instant the data is loaded 
to the top o£ memory of an expanded V22Q0 - 261 bytes below the actual 
top of memory (53247). Alao note that because the date must be POKEd 
into various memory locationa, the maximum value of any element of the 
F and C arraya cannot exceed 255, but programmera should not find this 
a major limitation. 

When a auccesaful load ia made from tape, the data ia returned to 
the memory locations from which it ig saved. Therefore the routine 
which places thia data into the appropriate variables and arrays ia 
Simply the "reverse" of the routine which moves the data to high 
memory. 


7150 РОКЕ 31870,@: FOR I=1 to 38: FCI) = PEEK (52931 - 65536 +I): NEXT 
7160 FOR I=1 to 17: C(I)= PEEK (52969 - 65536 +1): NEXT 

7172 R=FC(35): S=F(36): W=F(37) 

7180 RETURN 


The data ia PEEKed into the F and C arraya using two loops. The values 
of R,S and W are regained from the F array. 

The next trick ia to fool your VZ into thinking your data ia а 
BASIC program ao it will gave it to tape аа one. (I£ you have a copy 
of the article “Memory Dumps To Tape" which appeared in v2 Down Under 


and that apecified by the End Of Basic pointer, sometimes also known 
aa the atart of Simple Variables Table pointer. For those of you 
who have not come acrosa а pointer before, it consiata of two bytea 
(the values in memory locations 3@884 and 38885, which ia the Start of 
Basic pointer, for example.) The lower value contains the LEAST 
SIGNIFICANT BYTE (LSB) of the addresa being pointed to and the higher 
value contains the MOST SIGNIFICANT BYTE (MSB). When you multiply the 
value of the MSB by 256 and then add the value of the LSB you will get 
the value being pointed to. For example, if you PEEKed at the values 
іп 30884 and 30885, on most occassions the values returned will be 233 
and 122 respectively. When 122 ia multiplied by 256 and 233 ig added 
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there are a couple of complicationa. Firatly the CLOAD command clears 
all of the variables, and aecondly it enda the program run. A marginal 
improvement ia the CRUN command which will atill clear the variablea 
but will reatart the program afterwarda. Alao both commanda will leave 
the EOB and two other pointera - the Start of Dimenaioned Variablea 
Table (DVT - 30971/2) and the End of Variables Table (30973/4) - with 
the addreas of the end of the data block. Because the Top Of Memory 
(TOM - 30897/8) has been lowered below thia value in order to protect 
your data block, the reault will be an ?0UT OF MEMGRY ERROR. The 
@olution to this is to raise the TOM and another pointer, the Top Of 
Stack (TOS) back to their original valuea, CLEAR @ to atabilise the 
other pointers, CRUN your data block, then геаіоге the SOB, EOB, DVT 
апа ЕУТ pointera to their correct values (at the atart of the program, 
because it haa reatarted after the CRUN command), before once again 
lowering TOM and TOS. The values to be POKEd into the TOM and TOS 
can be obtained by using your own particular value of TOM and the same 
calculationa ag before. IE 

MSB = INTCaddresa/256) 

LSB = address - (MSB * 256) 

The TOS should be kept 50 bytea below the TOM ао if your MSB for the 
ТОН іа 297 апа the LSB ia 255, for the TOS, the MSB and LSB will be 
207 апа 2095 respectively. 

Аа the program restarta, there will be no variablea in use, ao the 
DVT and EVT will hold exactly the aame valuea aa the EOB. As a rough 
guide for lowering the TOM and TOS, i£ your data block ia less than 
about 250 bytea lonq (moat will be) aimply lower the MSB of both the 
TOM and TUS by 2. 

Laatly for this routine aa the program will reatart after loading, 
the program will need to know whether it ia just being RUN or whether 
it haa reatarted after a CRUN command. Thia can be done by POKEIing a 
certain value into a certain memory location, and then just after the 
program restarta checking thia location. І chose to POKE 42 into 
location 31070 (ап unused address in the Communications Region) but 
you may choose different values and locations if you wish. This is the 
sample LOAD routine 


710@ POKE 319070,42:CLS: PRINT “START THE TAPE.": GOSUB 970 
7110 POKE 30897,255: POKE 38898, 207 

7122 РОКЕ 30880,205: РОКЕ 30881, 297 

7125 CLEAR ообо 

713@ CRUN "ADVDATA'' 

7135 *PROGRAM RESTARTS AFTER THIS 


START OF PROGRAM 


POKE 30884,233: POKE 30885,122 
POKE 30963,1098: POKE 30970,182 
POKE 30971,1008: POKE 30972,182 
POKE 30973,1608: POKE 30974,1582 
POKE 30897,255: POKE 30898,2005 
POKE 30880,205: POKE 30881,205 

1 CLEAR 7080 
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25 IF PEEK (21070)=42 THEN GOSUB 715° 
27 ’ LOAD DATA FROM MEMORY INTO VARIABLES 


Note that you will need to put dummy values into lines 2,3 апа 4 until 
you know what the exact values of the EOB. For those of you who type 
in the example program, it is unlikely that you will type it exactly 
as it appears, so you will need to peek 20969 апа 30970 when you Һауе 
finished typing it іп and place these values in 2,3,4 апа 7979. 

With line 25 above, after the initialisation has put the default 
(starting) values in the C and F arrays, this causes a call to. Line 
7150 which will replace these with the values that were loaded. The 
program flow then continues sọ that the player can continue from where 
the game was saved 

Now the moment of truth for those that installed the feature. 
СЗАУЕ your program again (Don’t tape over your last copy) because 4% 
you have made a miatake either the system will crash or you will get 
an tOUT OF MEMORY ERROR, both of which would have fatal consequences 
for your program. RUN your program, and move around, carrying out a 
few different actiona ao the game atatua is different from the start. 
Type SAVE at the prompt, press record on the tape, then any Key on the 
keyboard. Stop the tape after the beep if you decided to one in the 
program, or when the next location screen appears i£ you didn’t. BREAK 
the program and rewind the tape to before the atart of your file. RUN 
the program again, typing LOAD at the first prompt, pressing play then 
any key. The program ahould restart (Here is the spot where the ?OUT 
OF MEMORY ERRORS occur) апа hopefully a nes location screen will 
appear. ІЕ ao you have aucceasafully inatalled а LOAD/SAVE feature to 
your program! 

(Because of the way the feature is inatalled, there are a few 
ahort cuta the adventurer can take with thia routine. If you dont 
want to load the data from within the program, you can CLOAD your 
data, type PORE 31076,4¢2, load your adventure program, if you haven't 
already, then run it. Also if you have loaded your progress, and then 
while you are playing your character bites the duat, you can reaurrect 
ік from where you last loaded the progress by BREAKing the program, 
and aimply typing POKE 31070,42 before running it again. The data 
ahould still be in memory from the last load and this causes tne 
computer to call the routine at line 7152.) 

Well thia just about wraps it up for this edition. Later on we 
will be examinig how this method сап be developed so the program can 
be aplit into modules го you сап create longer adventures which don’t 
all occupy memory at the same time. (For those of you that have the 
listing of section two of the demonatration program, you can atill 
type it іп without knowing how it works. Just place dummy values in 
lines 6,7,8 and 7180 and replace these with the value of the EOB. To 
run it you must SAVE your progress at the end of section one and load 
thia as acon ав aection two tells you Los 2 

Finally, if you had problems understanding this section, don’t 
worry. Although а LOAD/SAVE feature is useful, it ia not essential and 
you don’t have to include it in your adventurea. This part ia the most 
complex, and the reat of the series ahould be much simpler. 
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